Def: Split($_str_,$_separater_)
	'$_str_ nQΪr
	'$_separater_ ΨӤΪr
	'$ret ΨӪ^εG@}C

	$num=~String.InCount($_str_,$_separater_) '$num=ΦrX{

	$count=0 '$count=pI

	Cmp ($count<$num)

		$pos=~String.Instr($_str_,$_separater_) '$pos=ΦrX{m

		$ret[$count]=~String.Mid($_str_,1,$pos-1) 'I æsJ^}C

		$_str_=~String.Remove($_str_,0,$pos-1+~String.Len($_separater_)) 'wgIR

		$count=$count+1
	Loop

	$ret[$count]=$_str_ '̫@}CsJ}C

	$n=0
	Cmp ($n<=$num)
		~dos.print($ret[$n] "\x0a")
		$n=$n+1
	Loop
End Def

~Split("aaXbbbXccccXddddd","X")

~Dos.System("pause")